-- background: 5453 from stack: in
-- bmap block id: 3652
-- flags: 0000
-- background id: 0
-- name: Icons
----- HyperTalk script -----
on openCard
  if fld curButton <> "" then
    set the highlight of card button id (background field curButton) to false
    put "" into fld curButton
  end if
end openCard

on AddNewCard name
  global buttonId

  set lockscreen to true

  put background field "Number" into ix
  if ix = 20 then
    doMenu "New Card"
    put 0 into background field "Number"
    put "" into background field "curButton"
    put "ICON" into background field "resType"
  end if

  makeButton

  put "set name of button id" && buttonId && "to" && quote & name & quote into tmp
  do tmp
  put "set icon of button id" && buttonId && "to" && quote & name & quote into tmp
  do tmp

  resetHighlight
  set lockscreen to false

end AddNewCard

function buttonRect num
put 30 + (num div 5) * 70 into tv
put 75 + (num mod 5) * 70 into th

return th & "," & tv & "," & th+60 & "," & tv+60
end buttonRect

on makeButton
  global buttonId
  put background field "Number" into ix
  put ix+1 into background field "Number"

  set visible of background button "protoButton" to true

  choose button tool
  click at loc of background button "protoButton"
  doMenu "Copy Button"
  doMenu "Paste Button"
  choose browse tool

  set visible of background button "protoButton" to false

  set the rect of last button to buttonRect(ix)
  put the id of last button into buttonId

end makeButton

on idle
  doHilite
end idle

on hideFields
  set visible of background field "HighlightAreas" to false
  set visible of background field "Number" to false
  set visible of background field "curButton" to false
  set visible of background button "protoButton" to false
end hideFields

on showFields
  set visible of background field "HighlightAreas" to true
  set visible of background field "Number" to true
  set visible of background field "curButton" to true
  set visible of background button "protoButton" to true
end showFields



-- part 1 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=475 top=26 right=59 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=475 top=60 right=93 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Welcome
----- HyperTalk script -----
on mouseUp
  go to card "Welcome"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=191 right=216 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functions
----- HyperTalk script -----
on mouseUp
  go to first card of background "Functions"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=220 right=245 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sounds
----- HyperTalk script -----
on mouseUp
  go to first card of background "Sounds"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=133 right=158 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Commands
----- HyperTalk script -----
on mouseUp
  go to first card of background "Commands"
end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=476 top=305 right=336 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card of this background
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=303 top=306 right=331 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  butDelete
  resetHighlight
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=102 top=306 right=331 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paste
----- HyperTalk script -----
on mouseUp
  if background field "curButton" = "" then
    answer "You must select an ICON first!" with "Oops"
    exit mouseUp
  end if
  put background field resType && the short name of card button id (background field "curButton") & return into tmp
  go to card "Paste"
  put tmp after card field "ToPaste"
end mouseUp



-- part 9 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=7 top=304 right=335 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 3835 / 3835
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card of this background
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=249 right=274 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add
----- HyperTalk script -----
on mouseUp
  go to card "Add"
end mouseUp



-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=6 top=30 right=53 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: resType


-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=206 top=306 right=331 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rename
----- HyperTalk script -----
on mouseUp
  butRename
end mouseUp



-- part 22 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=144 top=31 right=281 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HighlightAreas


-- part 23 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=2 top=123 right=145 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: protoButton
----- HyperTalk script -----
on mouseUp
  buttonHit
end mouseUp



-- part 24 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=3 top=91 right=112 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: curButton


-- part 25 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=7 top=63 right=82 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Number


-- part 26 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=162 right=187 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cursors
----- HyperTalk script -----
on mouseUp
  go to first card of background "Cursors"
end mouseUp



-- part 27 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=2 top=256 right=300 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan
----- HyperTalk script -----
on mouseUp
  repeat until the mouseClick
    visual effect dissolve
    go to next card of this background
  end repeat
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=2 top=210 right=254 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  lock screen
  put "" into names
  put the number of cds in this bg into cnum
  repeat for cnum
    set cursor to busy
    repeat with i = 1 to fld "Number"
      put the short name of btn i & return after names
    end repeat
    go next cd of this bg
  end repeat
  put SortLines(names) into names
  put the short name of this bg into back
  repeat for (cnum - 1)
    set cursor to busy
    go last cd of bg back
    doMenu "Delete Card"
  end repeat
  go cd 1 of bg back
  choose button tool
  put fld "Number" into n
  repeat with i = 1 to n
    set cursor to busy
    click at loc of btn (n-i+1)
    doMenu "Clear Button"
  end repeat
  choose browse tool
  put 0 into fld "Number"
  put "" into fld curButton
  repeat with i = 1 to number of lines in names
    set cursor to busy
    AddNewCard (line i of names)
  end repeat
  go cd 1 of this bg
  set cursor to hand
  unlock screen
end mouseUp